!..\..\..\classes\registry.prg foxweb2.prgrg foxweb.prg Vc:\program files\microsoft visual studio\common\samples\vfp98\servers\foxisapi\foxwebVc:\program files\microsoft visual studio\common\samples\vfp98\servers\foxisapi\foxwebaC:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\COMMON\SAMPLES\VFP98\SERVERS\FOXISAPI\FOXWEB\FOXWEB.PJXaC:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\COMMON\SAMPLES\VFP98\SERVERS\FOXISAPI\FOXWEB\FOXWEB.PJXz INITfGETPRIVATEPROFILESTRINGfDELAYfRESETfHELLOfERRORf GETCOMPNAMEfserverC foxweb.prgFOXWEBPrg1INITfERRORf LOADREGFUNCSf REGOPENKEYf REGCREATEKEYf REGDELETEKEYfREGDELETEVALUEf REGCLOSEKEYf REGSETVALUEEXfREGQUERYVALUEEXf REGENUMKEYf REGENUMKEYEXf REGENUMVALUEfOPENKEYfCLOSEKEYf SETREGKEYf GETREGKEYf GETKEYVALUEf SETKEYVALUEf DELETEKEYf ENUMOPTIONSfISKEYfENUMKEYSf AKEYNAMESa ENUMKEYVALUESf AKEYVALUESa GETINISECTIONf ASECTIONSa GETINIENTRYf GETWININIf GETPRIVATEINIf WRITEINIENTRYf WRITEWININIfWRITEPRIVATEINIf LOADINIFUNCSf SETFOXOPTIONf GETFOXOPTIONfENUMFOXOPTIONSf LOADODBCFUNCSf SQLDRIVERSfSQLDATASOURCESf GETODBCDRVRSfADRVRSa ENUMODBCDRVRSf ENUMODBCDATAf GETAPPPATHfGETLATESTVERSIONfGETAPPLICATIONfREGISTRYPSETREGKEYf GETR7 66i*3%*/=450'#U H  24 3 ,B-! C Windows 3CJTT W32SCOMB.DLLT W32SCOMB.DLLT ODBC32.DLL(TVisualFoxPro\5.0\OptionsT " C Windows NTCJsTT ADVAPI32.DLLT KERNEL32.DLLT ODBC32.DLL2TT ADVAPI32.DLLT KERNEL32.DLLT ODBC32.DLLUTHIS NCURRENTOS CREGDLLFILE CINIDLLFILE CODBCDLLFILE CVFPOPTPATHNUSERKEY+Ta CCExUNERRORCMETHODNLINETHIS LHADERRORU     %x B%| RegOpenKeyWin32API% B'| RegCreateKeyWin32API$| RegDeleteKeyWin32API%|RegDeleteValueWin32API | RegCloseKeyWin32API,| RegSetValueExWin32API1|RegQueryValueExWin32API'| RegEnumKeyWin32API4| RegEnumKeyExWin32API4| RegEnumValueWin32APITa BU"NHKEYCSUBKEYNRESULTHKEYIVALUE LPSZVALUE LPCCHVALUELPDWTYPELPBDATALPCBDATALPCSTRLPSZVALNLEN LPDWRESERVED LPSZVALUENAME DWRESERVEDFDWTYPEISUBKEYLPSZNAMECCHNAMETHIS LLOADEDDLLS REGOPENKEYWIN32API LHADERROR REGCREATEKEY REGDELETEKEYREGDELETEVALUE REGCLOSEKEY REGSETVALUEEXREGQUERYVALUEEX REGENUMKEY REGENUMKEYEX REGENUMVALUE T TC(%C m.nRegKeybNC  zT  TC%  B T-% C m.lCreateKeybL T %2TC   XTC   T % B T   BU CLOOKUPKEYNREGKEY LCREATEKEYNSUBKEYNERRCODENPCOUNTLSAVECREATEKEYTHIS LOADREGFUNCS REGCREATEKEY REGOPENKEY NCURRENTKEY#CTU REGCLOSEKEYTHIS NCURRENTKEY T T TT C   %  B TC  C B U COPTNAMECOPTVALCKEYPATHNUSERKEYIPOSCOPTKEYCOPTIONNERRNUMTHISOPENKEY SETKEYVALUECLOSEKEY T T TT C   %  B TC C B U COPTNAMECOPTVALCKEYPATHNUSERKEYIPOSCOPTKEYCOPTIONNERRNUMTHISOPENKEY GETKEYVALUECLOSEKEYd J(JCX(JC >(  Hc2 CTHIS.nCurrentKeybN   B C m.cValueNamebC B.T C  %  B %8 BT C  = BU CVALUENAME CKEYVALUE LPDWRESERVEDLPDWTYPELPBDATALPCBDATANERRCODETHIS NCURRENTKEYREGQUERYVALUEEXK   H#2 CTHIS.nCurrentKeybN  _ B6 C m.cValueNamebCCm.cValuebC  B C C   BT C TC >.T C   % ; B  BU CVALUENAMECVALUE NVALUESIZENERRCODETHIS NCURRENTKEY REGSETVALUEEXI  TT C  B UNUSERKEYCKEYPATHNERRNUM REGDELETEKEY& T T T)%C C m.lEnumKeysbL  T-T C   %  B % TC TC  C B U AREGOPTSCOPTPATHNUSERKEY LENUMKEYSIPOSCOPTKEYCOPTIONNERRNUMTHISOPENKEYENUMKEYS ENUMKEYVALUESCLOSEKEY^ TC % H CB UCKEYNAMENREGKEYNERRNUMTHISOPENKEYCLOSEKEY4 T  +a TTCdXTC >TCdXTC >TCdX3T C  H ! !TC TC C >=%CC lCTC T !%   T  B U AKEYNAMES NKEYENTRYCNEWKEYCNEWSIZECBUFNBUFLENCRETTIMENKEYSIZENERRCODE REGENUMKEYEXTHIS NCURRENTKEY J(2%CTHIS.nCurrentKeybN  } B%  B +aJ(JCX(JC>( JC>( 4TC   H;j S! j!T  $T C  = H (T C  = 4#T *Binary* m(T C  =2)T *Unknown type*!%   T  B U AKEYVALUES LPSZVALUE LPCCHVALUE LPDWRESERVEDLPDWTYPELPBDATALPCBDATANERRCODE NKEYENTRY LARRAYPASSEDTHIS NCURRENTKEY NCURRENTOS REGENUMVALUED4 T%C m.cINIFilebCZ T&%C  BTCC   T( 4T CC  )T C   \T  BU ASECTIONSCSECTIONCINIFILE CINIVALUE NTOTENTRIESINLASTPOSTHIS GETINIENTRYNTMPPOSY TCTC % a B %  T T CX%C *T C  C > 0T C  C >  % 1 BT C  = BU CVALUECSECTIONCENTRYCINIFILECBUFFERNBUFSIZENERRNUM NTOTPARMSTHIS LOADINIFUNCS GETWININI GETPRIVATEINITC% I B %C ~ TC   &TC   BC  6U CVALUECSECTIONCENTRYCINIFILENERRNUMTHIS LOADINIFUNCS WRITEWININIWRITEPRIVATEINIW% BG|GetPrivateProfileStringWin32APIQ GetPrivateINI%~ B:|GetProfileStringWin32APIQ GetWinINI:|WriteProfileStringWin32APIQ WriteWinINIG|WritePrivateProfileStringWin32APIQWritePrivateINITa BU THIS LLOADEDINISGETPRIVATEPROFILESTRINGWIN32API GETPRIVATEINI LHADERRORGETPROFILESTRING GETWININIWRITEPROFILESTRING WRITEWININIWRITEPRIVATEPROFILESTRINGWRITEPRIVATEINI/ !BCUCOPTNAMECOPTVALTHIS SETREGKEY CVFPOPTPATHNUSERKEY/ !BCUCOPTNAMECOPTVALTHIS GETREGKEY CVFPOPTPATHNUSERKEY(BC-UAFOXOPTSTHIS ENUMOPTIONS CVFPOPTPATHNUSERKEY% B%C9 B     -|W SQLDrivers% B2|WSQLDataSourcesTa BUTHIS LLOADEDODBCS CODBCDLLFILEHENV FDIRECTION SZDRIVERDESCCBDRIVERDESCMAX PCBDRIVERDESCSZDRIVERATTRIBUTES CBDRVRATTRMAX PCBDRVRATTRSZDSNCBDSNMAXPCBDSN SZDESCRIPTIONCBDESCRIPTIONMAXPCBDESCRIPTION SQLDRIVERS LHADERRORSQLDATASOURCES! 40TCCm.lDataSourcesbL -6TC %  B TCC ]g%C B#C 6T +aTCdXTCdX T T% y-TC d -TC dd  H  d T!   !2 %CC x% OCtCTC .TCC C >=%  TC .TCC C >= BU ADRVRS LDATASOURCESNODBCENVNRETVALDSNDSNDESCMDSNMDESCTHIS LOADODBCFUNCSSQLDATASOURCES SQLDRIVERSa .TSoftware\ODBC\ODBCINST.INI\ BC  -U ADRVROPTS CODBCDRIVER CSOURCEKEYTHIS ENUMOPTIONS[ (TSoftware\ODBC\ODBC.INI\BC  -U ADRVROPTS CDATASOURCE CSOURCEKEYTHIS ENUMOPTIONS  T/%C m.cExtensionbC C > d BT . TC %  B TC C %  B BC U CEXTENSIONCEXTNKEYCAPPKEYLSERVERNERRNUMCOPTNAMETHISOPENKEY GETKEYVALUECLOSEKEYGETAPPLICATION  T!TC \CurVer% j B TC C %  B BC U CCLASSCEXTNKEYCAPPKEYLSERVERNERRNUMCOPTNAMETHISOPENKEY GETKEYVALUECLOSEKEYGETAPPLICATION 4  T&%C m.lServerbL  |/T\Protocol\StdFileEditing\Server#T\Shell\Open\CommandT C %  B TC C B U CEXTNKEYCAPPKEYLSERVERNERRNUMCOPTNAMETHIS CAPPPATHKEYOPENKEY GETKEYVALUECLOSEKEYInit,Errore LoadRegFuncsOpenKeyCloseKey SetRegKey  GetRegKeyB  GetKeyValuev  SetKeyValueN  DeleteKey EnumOptionsaIsKeyEnumKeys EnumKeyValues GetINISection GetINIEntry, WriteINIEntry LoadINIFuncs7 SetFoxOptionL GetFoxOptionEnumFoxOptions( LoadODBCFuncs GetODBCDrvrs! EnumODBCDrvrs>% EnumODBCData% GetAppPathp&GetLatestVersion(GetApplicationC)\T 8T+Software\Microsoft\VisualFoxPro\5.0\Options T T T T T T- T- T - T  T - T -         U NUSERKEY CVFPOPTPATH CREGDLLFILE CINIDLLFILE CODBCDLLFILE NCURRENTOS NCURRENTKEY LLOADEDDLLS LLOADEDINIS LLOADEDODBCS CAPPPATHKEY LCREATEKEY LHADERROR+    U!   U+    U!   Uregistrycustom - oldiniregregistry/foxregregistry?/odbcregregistryd/fileregregistry/1q!A331ASAsCSsDE32qA1A!AA"A"33511A3511A3r1!A3AA3!aAS3A3q321A1ARRA31A3q2AA1AAAAA1AA3r"ACARACAA1AA2SA2AAA81AbAb1A3131A3A"A2A31s1AbA3AsAs733q7A$A21A%31A#A21A1AAAAAAAA3q3q73Aas1A2A331A2A3c1A1A3@1pPp1571:pW~a4O9R _- "l"&)*&')KK)*j@* -u,-6.Y.118r8: : >"&3>.@H3U@ C`@bCCCCXDFDDI8E IZ5IWOO-PTPPTQ=T hTV(V$YB!8`V8CGCD~E Q;Q0Yc:\temp\registry.fxpc:\program files\microsoft visual studio\common\samples\vfp98\classes\registry.prg)6  4 103 4 1 96c:\program files\microsoft visual studio\common\samples\vfp98\servers\foxisapi\foxweb\foxweb.tlb 6foxweb 6foxweb 19foxweb Type Library 4 68 38{CD8EAC43-8966-11D1-B599-0000F81E8647} 10 13foxweb.server 6server 0 6server 96c:\program files\microsoft visual studio\common\samples\vfp98\servers\foxisapi\foxweb\foxweb.prg 11 38{CD8EAC41-8966-11D1-B599-0000F81E8647} 38{CD8EAC42-8966-11D1-B599-0000F81E8647} ru^% tTe)$U:7|GetPrivateProfileStringwin32apiUGETPRIVATEPROFILESTRINGWIN32API  T%Cm.p1bCMT5%Cm.p2bCv T5TC C C C iT JC C AT "C C ;T Foxweb Delay!C C &T C C %C  C 0 E4T C C :T 

Local Server Delay

C C 5T C C ;T 

Remote Server Delay

C C <T 

Computername: CC C 3T 

Delay:  C C %T 

C^C C &T C C T TCC g+C  B UP1P2NPERSISTINSTANCERETVALSTOPTHIS GETCOMPNAMECERRORG5TC C C C ;T FoxWeb ServerC C <T C C C C JT +

Releasing FoxWeb Server

C C &T C C B UP1P2NPERSISTINSTANCERETVALTHISCERROR TTC#%Cm.p1bCC qT World%Cm.p2bCT 5TC C C C iT JC C AT "C C :T Hello World!C C LT C C C C XT 

HeLlO  !

C C C C hT I

This is some sample formatted text: Bold Text

C C 1T 

CC

C C 0T 

 

C C %C  C 0 TCXATCFOXISAPI Server Namedefault7C> IT 

Server Name = C  =

C C 4OT 

!INI file not found. Remote Server

C C &T C C &T C C B U P1P2NPERSISTINSTANCERETVALBUFNLENGETPRIVATEPROFILESTRINGTHISCERROR(THTTP/1.0 200 OKC C 6T Content-Type: text/htmlC C QT &Expires: Sunday 15-May-94 14:00:01 GMTC C C C wT C C Error: CEC C CE at   at line C ZC C &T C C T  B UNERRORCMETHODNLINERETVALTHISCERROR T'TCregistry registry.prgnTC ComputerName:SYSTEM\CurrentcontrolSet\control\ComputerName\ComputernameCBC 6UOREGCVALUENERR GETREGKEYInit,DelayResetHello$Error  GetCompName L T      UCERRORserverCUSTOM9u3AARaAQA1QaA1A!3qQa!31AAAQAaa!3qara!3q3p@: #"< 9+Z BII`nS~Yc:\temp\foxweb.fxpc:\program files\microsoft visual studio\common\samples\vfp98\servers\foxisapi\foxweb\foxweb.prg)